home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 September / EnigmA AMIGA RUN 30 (1998)(G.R. Edizioni)(IT)[!][issue 1998-09].iso / earkit / ftp / gui-ftp / rexx / default.filter next >
Text File  |  1998-07-09  |  238b  |  19 lines
  1. /* REXX */
  2. /*
  3. ** default.filter - simply echoes standard input to stadard output.  Blank
  4. ** lines are suppressed.
  5. */
  6.  
  7. do until eof( STDIN )
  8.     parse pull T$
  9.     if ~ eof( STDIN ) then do
  10.         if T$ > "" then do
  11.             say T$
  12.         end
  13.     end
  14. end
  15.  
  16. exit 0
  17.  
  18.  
  19.